home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue53 / ccorn / Listing6.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-12-09  |  234 b   |  10 lines
  1. procedure TMainForm.FormCreate(Sender: TObject);
  2. var
  3.   Unk: IUnknown;
  4. begin
  5.   if Succeeded(GetActiveObject(CLASS_RegObj, nil, Unk)) and
  6.     (Unk <> nil) then
  7.     FSrv := Unk as IRegObj
  8.   else
  9.     FSrv := CoRegObj.Create;
  10. end;